
	* Figure 2
	* Parametric Estimates of Effects of School Finance Reforms on Outcomes


	***** High School
	clear all
    set obs 14

 gen year=.
 gen j_plus_hs=.
 gen j_plus_hs_se=.
 
 forvalues i=0(1)13 { 
 	local j=`i'+1
 	replace year=`i' in `j'
	replace j_plus_hs=(0.0063)+(`i')*(0.0043) if year==`i'
	replace j_plus_hs_se=sqrt((0.018)^2 + (`i'^2*((0.0013)^2))) if year==`i'
 }

	gen ub=j_plus_hs_se*(1.96) + j_plus_hs
	gen lb=j_plus_hs_se*(-1.96) + j_plus_hs
	
	twoway  (line j_plus_hs year,lcolor(black) lpattern(solid)) || ///
	(line ub year, lcolor(gray) lpattern(dash)) ///
	|| (line lb year ,  lcolor(gray) lpattern(dash)), ///
	legend(order(1 2) pos(6) rows(1) ///
	label(1 "Point Estimate") ///
	label(2 "95% Confidence Interval")) xtitle(Years Since Event , ///
	size(large)) ytitle("Point Estimate", size(large)) xlabel(0(1)13) ///
	xtick(0(1)13) title("A: High School", size(large)) 
	graph export "hs.jpg", replace 
	
	***** Postsecondary
	clear all
    set obs 14

 gen year=.
 gen j_plus_ps=.
 gen j_plus_ps_se=.
 
 forvalues i=0(1)13 { 
 	local j=`i'+1
 	replace year=`i' in `j'
	replace j_plus_ps=(0.0265)+(`i')*(0.0036) if year==`i'
	replace j_plus_ps_se=sqrt((0.026)^2 + (`i'^2*((0.0017)^2))) if year==`i'
 }

	gen ub=j_plus_ps_se*(1.96) + j_plus_ps
	gen lb=j_plus_ps_se*(-1.96) + j_plus_ps
	
	twoway  (line j_plus_ps year,lcolor(black) lpattern(solid)) || ///
	(line ub year, lcolor(gray) lpattern(dash)) ///
	|| (line lb year ,  lcolor(gray) lpattern(dash)), ///
	legend(order(1 2) pos(6) rows(1) ///
	label(1 "Point Estimate") ///
	label(2 "95% Confidence Interval")) xtitle(Years Since Event , ///
	size(large)) ytitle("Point Estimate", size(large)) xlabel(0(1)13) ///
	xtick(0(1)13) title("B: Postsecondary", size(large))
	graph export "ps.jpg", replace 
	
	***** Ever Volunteered
	clear all
    set obs 14

 gen year=.
 gen j_plus_ev=.
 gen j_plus_ev_se=.
 
 forvalues i=0(1)13 { 
 	local j=`i'+1
 	replace year=`i' in `j'
	replace j_plus_ev=(0.0606)+(`i')*(0.0047) if year==`i'
	replace j_plus_ev_se=sqrt((0.038)^2 + (`i'^2*((0.0028)^2))) if year==`i'
 }

	gen ub=j_plus_ev_se*(1.96) + j_plus_ev
	gen lb=j_plus_ev_se*(-1.96) + j_plus_ev
	
	twoway  (line j_plus_ev year,lcolor(black) lpattern(solid)) || ///
	(line ub year, lcolor(gray) lpattern(dash)) ///
	|| (line lb year ,  lcolor(gray) lpattern(dash)), ///
	legend(order(1 2) pos(6) rows(1) ///
	label(1 "Point Estimate") ///
	label(2 "95% Confidence Interval")) xtitle(Years Since Event , ///
	size(large)) ytitle("Point Estimate", size(large)) xlabel(0(1)13) ///
	xtick(0(1)13) title("C: Ever Volunteered", size(large)) 
	graph export "ev.jpg", replace 
	
	***** Voluntary Hours
	clear all
    set obs 14

 gen year=.
 gen j_plus_vh=.
 gen j_plus_vh_se=.
 
 forvalues i=0(1)13 { 
 	local j=`i'+1
 	replace year=`i' in `j'
	replace j_plus_vh=(-0.312)+(`i')*(0.0722) if year==`i'
	replace j_plus_vh_se=sqrt((0.330)^2 + (`i'^2*((0.0168)^2))) if year==`i'
 }

	gen ub=j_plus_vh_se*(1.96) + j_plus_vh
	gen lb=j_plus_vh_se*(-1.96) + j_plus_vh
	
	twoway  (line j_plus_vh year,lcolor(black) lpattern(solid)) || ///
	(line ub year, lcolor(gray) lpattern(dash)) ///
	|| (line lb year ,  lcolor(gray) lpattern(dash)), ///
	legend(order(1 2) pos(6) rows(1) ///	
	label(1 "Point Estimate") ///
	label(2 "95% Confidence Interval")) xtitle(Years Since Event , ///
	size(large)) ytitle("Point Estimate", size(large)) xlabel(0(1)13) ///
	xtick(0(1)13) title("D: Volunteer Hours", size(large)) 
	graph export "vh.jpg", replace 
	
	***** Register to Vote
	clear all
    set obs 14

 gen year=.
 gen j_plus_rv=.
 gen j_plus_rv_se=.
 
 forvalues i=0(1)13 { 
 	local j=`i'+1
 	replace year=`i' in `j'
	replace j_plus_rv=(0.101)+(`i')*(-0.0008) if year==`i'
	replace j_plus_rv_se=sqrt((0.045)^2 + (`i'^2*((0.0032)^2))) if year==`i'
 }

	gen ub=j_plus_rv_se*(1.96) + j_plus_rv
	gen lb=j_plus_rv_se*(-1.96) + j_plus_rv
	
	twoway  (line j_plus_rv year,lcolor(black) lpattern(solid)) || ///
	(line ub year, lcolor(gray) lpattern(dash)) ///
	|| (line lb year ,  lcolor(gray) lpattern(dash)), ///
	legend(order(1 2) pos(6) rows(1) ///
	label(1 "Point Estimate") ///
	label(2 "95% Confidence Interval")) xtitle(Years Since Event , ///
	size(large)) ytitle("Point Estimate", size(large)) xlabel(0(1)13) ///
	xtick(0(1)13) title("E: Register to Vote", size(large)) 	
	graph export "rv.jpg", replace 
	
	 
